Programa TestProgram4;
usar crt;
Var 
    int_Var_2 : inteiro;
    str_Var_2, STRCONST : palavra;
    
procedimento procedure_3();
    Var 
        str_Var_1 : palavra;
        int_Var_1, i : inteiro;
    comeco
        str_Var_1 := '';
        int_Var_1 := 0;
        enquanto (int_Var_1 < 10) faca
	        comeco
                 int_Var_1 := int_Var_1 + 2 + 3 + 1; 
            fim;
    fim;

comeco
(*EXECUCAO DO ALGORITMO =============================================*)
    escreveln(STRCONST);
     
    se (int_Var_2 = 1) entao
    	comeco
		     escreveln('the constant value is zero');
		fim;
		
    call procedure_3();

    escreveln('End Of Program');

fim.

    





     
